home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / WebObjects / SourceCode / CalendarRadio.wo / CalendarRadioExample / CalendarRadioEx.wod < prev    next >
Encoding:
Text File  |  1996-04-20  |  2.1 KB  |  105 lines
  1. ////////////////////////
  2. //  CalendarRadio
  3. //  by Charles Lloyd
  4. ////////////////////////
  5.  
  6.  
  7. CalendarRadioComposite: CalendarRadio {
  8.     currentYear =  userYear;
  9.     currentMonth = userMonth;
  10.     dayChoice = userDayChoice;
  11.     cellPadding = userCellPadding;
  12.     cellSpacing = userCellSpacing;
  13.     borderSize = userTableBorder;
  14.     yearFontSize = userYearFontSize;
  15.     monthFontSize = userMonthFontSize;
  16.     dayFontSize = userDayFontSize;
  17.     showButtons = userShowButtons;
  18.     cellAlignment = userCellAlignment;
  19. };
  20.  
  21. ChoiceForm: WOForm {
  22.     action = displayChoice;
  23. };
  24.  
  25. ChoiceString: WOString {
  26.     value = userDayChoice;
  27. };
  28.  
  29. SetupForm: WOForm {
  30.     action = reconfigureCalendar;
  31. };
  32.  
  33. YearField: WOTextField {
  34.     value = userYear;
  35.     size = inputCellSize;
  36. };
  37.  
  38. MonthChoice: MonthChoice {
  39.     matrixName = "MonthChoiceA";
  40.     selectedMonthInt = userMonth;
  41.     borderSize = 2;
  42. };
  43.  
  44. DayField: WOTextField {
  45.     value = userDayChoice;
  46.     size = inputCellSize;
  47. };
  48.  
  49. CellPaddingField: WOTextField {
  50.     value = userCellPadding;
  51.     size = inputCellSize;
  52. };
  53.  
  54. CellSpacingField: WOTextField {
  55.     value = userCellSpacing;
  56.     size = inputCellSize;
  57. };
  58.  
  59. TableBorderField: WOTextField {
  60.     value = userTableBorder;
  61.     size = inputCellSize;
  62. };
  63.  
  64. YearFontChoice: FontChoice {
  65.     matrixName = "YearFontChoice";
  66.     selectedItem = userYearFontSize;
  67.     isVertical = YES;
  68. };
  69.  
  70. MonthFontChoice: FontChoice {
  71.     matrixName = "MonthFontChoice";
  72.     selectedItem = userMonthFontSize;
  73.     isVertical = YES;
  74. };
  75.  
  76. DayFontChoice: FontChoice {
  77.     matrixName = "DayFontChoice";
  78.     selectedItem = userDayFontSize;
  79.     isVertical = YES;
  80. };
  81.  
  82. ShowButtonsCheckBox: WOCheckBox {
  83.     checked = userShowButtonsChecked;
  84. };
  85.  
  86. CellAlignmentChoice: RadioMatrix {
  87.     matrixName = "CellAlignmentChoice";
  88.     selection = userCellAlignment;
  89.     isVertical = NO;
  90.     list = alignmentStrings;
  91. };
  92.  
  93. ComponentDescription: ComponentDescription {
  94.     componentName = "CalendarRadio";
  95. };
  96.  
  97. ShowSourceControls: ShowSource {
  98.     componentName = "CalendarRadio";
  99. };
  100.  
  101. RCBody: WOGenericContainer {
  102.     elementName = "body";
  103.     bgcolor = WOApp.globalBackgroundColor;
  104. };
  105.